Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard Danish (DK-1.2.2)/Idestakke/Baggrundsideer/background_42187.txt

Text File | 1988-12-19 | 8KB | 344 lines

-- background: 42187 from stack: in
-- bmap block id: 19051
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on extend
  if the name of this stack contains "Baggrundsideer"
  then
  answer "Opret venligst en ny stak, f√∏r den udvides." with "OK"
else
  answer "Skal der laves nye kort til tre måneder?" with "Annuller" or "OK"
  if it is "Annuller" then exit extend
  go to last card of this background
  put getStartDate() into start      --what date to begin on
  if start is "Annuller" then exit extend
  put 60*60*24 into OneDay      --seconds in a day
  put start into it        --a copy
  convert it to long date
  global calcMonth
  put word 1 of item 2 of it into calcMonth
  set name of this bkgnd to calcMonth
  repeat with cnt = 1 to (365 div 4)   --three months
    put start into it        --a copy
    convert it to long date
    put item 1 of it into field "Ugedag"
    put item 2 of it into field "Dato"
    put item 3 of it into field "√Ör"
    add OneDay to start
    doMenu New Card
    upDateBkgnd start  --make a new background if new month
  end repeat
  doMenu "Delete Card"
end if
end extend

on upDateBkgnd start
  global calcMonth
  put start into it        --a copy
  convert it to long date
  if word 1 of item 2 of it <> calcMonth then   --if new month
    --create a new background.
    put word 1 of item 2 of it into calcMonth
    doMenu "Cut Card"    --new bkgnd is a copy with only name changed
    go previous card
    put the long name of this card into goodStack
    set lockScreen to true
    go to stack "home"
    --must go to another stack to avoid changing the original bkgnd
    doMenu "Paste Card"
    set name of this background to word 1 of item 2 of it
    doMenu "Cut Card"
    go goodStack
    set lockScreen to false
    doMenu "Paste Card"
    set name of this bkgnd to calcMonth
  end if
end upDateBkgnd

function getStartDate
-- end of stack or today, whichever is newer
get field "Dato"
if it is empty then put the short date into it
convert it to seconds    --so we can compare
put the short date into today
convert today to seconds
if today < 2587766400 then
  answer "Indstil Kontrolpanelet til dags dato" with "OK"
  return "Annuller"
end if
if it >= today then return it   --calendar already beyond today
convert it to short date
answer "Startende fra hvilken dato?" with it or the short date or "Annuller"
if it is "Annuller" then return it
convert it to seconds
return it
end getStartDate

on openBackground
  push recent card
end openBackground


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=321 top=283 right=311 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opgaver
----- HyperTalk script -----
on mouseUp
  go card "Opgaver1" of "Kalender"
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=59 top=119 right=290 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 16
-- part name: c


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=281 right=315 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hjem
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=420 top=281 right=312 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Telefon
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Ring til hvilket nummer?"
  if it is not empty then
    dial it
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=458 top=280 right=311 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Adresse
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom open
  go to "Adresse"
  if it is not empty then find it
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=285 right=310 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Datebook Answer
----- HyperTalk script -----
on mouseUp
  answer "Dette er en dagskalender" with OK
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=389 top=285 right=309 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kalender
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go to "Kalender"
  goSixMonthly the seconds
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=229 top=309 right=334 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=257 top=308 right=335 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=464 top=311 right=336 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=28 top=61 right=84 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Ugedag


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=21 top=84 right=118 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Dato


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=305 top=25 right=50 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: År


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=26 top=314 right=329 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Udvid
----- HyperTalk script -----
on mouseUp

  extend
end mouseUp